0CLEAR,,2:DEFINTA-Z:CLS:SCREEN7,5,4:ATTRB1,1:L$="T99L9DOSIREP":M$="T1A255L1DO":C$="  ":L=0:PALETTE4,0:PALETTE5,256:S=20
1FORI=0TO3:BOX(I+A,20)-(I+A,24)C$,,I:NEXT:A=A+4:IFA>39THENI=0:COLOR,5:LOCATE1,2,0:?"SCR";SPC(10);"LEV";L:GOTO2:ELSE1
2CONSOLE,,0:FORI=1TO60:O=RND(1)*319:H=RND(1)*100+24:C=RND(1)*3:PSET(O,H),C:NEXT:R=0:W=19:CONSOLE,,1:IFS=0THENS=20:P=P+S
3DEFGR$(0)=15,25,49,127,255,255,60,24:DEFGR$(1)=224,48,16,254,255,255,30,12:H=127:X=38:Q=5:A$=GR$(0)+GR$(1):N$=CHR$(H)
4LOCATEQ,W:?A$:IF POINT(Q*8+33,W*8+7)<>-6THENLOCATE11,11:?"GAME OVER":PLAY"L9T15A5DOT10DOT5RET20DOP":CONSOLE,,0:GOTO0
5READA,B,C,D:PALETTE0,A:PALETTE1,B:PALETTE2,C:PALETTE3,D:LOCATEX,19:?N$+" ":X=X-1:PLAYM$:I=I+1:IFI>3THENI=0:RESTORE
6IFQ=34THENL=L+1:LOCATE13,12:?"LEVEL";L:S=S-4:PLAYL$:RESTORE:CLS:GOTO1ELSEZ=Z+1:IFZ=S THENQ=Q+1:LOCATEQ-1,W:?" ":Z=0
7IFPOINT(Q*8+24,W*8+9)=-6THEN LOCATEQ,W:?C$:W=W+1ELSEIFSTRIG(0)ANDU=0THENU=3ELSEIFU>0THENLOCATEQ,W:?C$:W=W-3:U=0
8N=38-X:IFN<=R THENE=E+1:N$=STRING$(E@2,H)ELSEE=0:IFX<=0THENX=38:LOCATE1,19:?SPACE$(LEN(N$)):N$="":R=RND(1)*10+1:P=P+10
9IFX=38THENLOCATE7,2:?P:GOTO4ELSE4:DATA 257,258,259,258,258,259,258,257,259,258,257,258,258,257,258,259